home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / color.swg / 0011_Hi Intensity Colors #5.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  531 b   |  27 lines
  1. {
  2. > How would I implement the high intensity colors For the TextBACKGROUND
  3. > Procedure in the Crt Unit?
  4. }
  5.  
  6. Procedure LightEGAVGA(TurnOn : Boolean);
  7. Var Regs : Registers;
  8. begin
  9.   Regs.AH := $10;
  10.   Regs.AL := $03;
  11.   Regs.BL := Byte(TurnOn);
  12.   Int($10,Regs);
  13. end;
  14.  
  15. Procedure LightHGC(TurnOn : Boolean);
  16. begin
  17.   if TurnOn then Port[$3b8] := $29
  18.   else           Port[$3b8] := $09;
  19. end;
  20.  
  21. Procedure LightCGA(TurnOn : Boolean);
  22. begin
  23.   if TurnOn then Port[$3d8] := $29
  24.   else           Port[$3d8] := $09;
  25. end;
  26.  
  27.